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H. Blocs imbriqués & portée d’une variable 




Définition : Portée d’une variable 


La portée d'une variable est définie par les limites du bloc PLSQL dans lequel elle a été 
définie, et les sous-blocs de ce bloc. En dehors de ces limites, la variable est inutilisable. 
On parle alors de variable locale. 

Si une variable est définie dans le bloc parent, elle est utilisable dans tous les blocs 
imbriqués. On dit alors que c'est une variable globale. 

Dans un bloc imbriqué, si une variable locale a le même nom qu'une variable globale, 
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alors cette dernière est éclipsée jusqu'à ce que le bloc imbriqué soit terminé. 


Exemple 1 


DECLARE 

-- Variables globales 
muni number : = 95 ; 
num2 number : = 85 ; 

BEGIN 

dbms_output .put_line ( 'Variable globale numl : ' || numl); 

dbms_output .put_line ( 'Variable globale num2 : ' l| num2) ; 

DECLARE 

-- Variables locales 
numl number := 195; 
num2 number := 185; 

BEGIN 

dbms_output . new_line ( ) ; 

dbms_output. put_line ( 'Variable locale numl: ' || numl) ; 

dbms_output .put_line ( 'Variable locale num2 : ' || num2) ; 

END ; 

END; 



Message DBMS Output 


Variable globale numl: 95 
Variable globale num2: 85 


Variable locale numl: 195 
Variable locale num2: 185 
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II. Les structures de contrôle 


A. Expressions booléennes et opérateurs 


Définition : Expression booléenne 


Une expression est dite booléenne quand sa valeur globale est soit TRUE soit FALSE. 
Une expression booléenne peut contenir des opérateurs relationnels, logiques, ou de 
comparaison. 


Définition : Opérateurs relationnels 


Egal 


! = ou bien <> ou bien ~= 


Différent de 


Supérieur 


Inférieur 


>= 


Supérieur ou égal 


<= 


Inférieur ou égal 


Définition : Opérateurs de comparaison 


LIRE 


Comparaison entre chaînes de caractères. Peut être utilisé avec les 
opérateurs et % 


'bonjour ' 

LIRE 

'on' 

false 

'bonjour ' 

LIRE 

' %on% ' 

true 

'bonjour ' 

LIRE 

' _on% ' 

true 

'bonjour ' 

LIRE 

' _on 

true-A- 

'bonjour ' 

LIRE 

'bonj ur' 

true 

'bonjour ' 

LIRE 

'bonjou ' 

false 


4 caractères _ pour 
remplacer la 
séquence ' jour' 


BETWEEN ... AND 


Comparaison entre chiffres. 

X := 15; 

X BETWEEN 11 AND 16 


true 


IN 


Teste si une valeur (chiffres ou caractères) figure parmi un ensemble 
de valeurs. 

'x' IN ('a', 'b', 'c') false 


15 IN (0, 25, 15, 33) 


true 


IS NULL 


Retourne true si la variable contient la valeur null. 


Définition : Opérateurs logiques 


AND 


Le ET logique 


OR 


Le OU logique 


NOT 


Le NON logique 
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B. Les structures alternatives 

1. IF - THEN 


Syntaxe 


IF condition_booléenne THEN 
/* instructions */ 

END IF; 


Exemple 


DECLARE 


BEGIN 


ch VARCHAR2 (50) ; 

--test 1 

ch := 'bonjour vinci'; 

IF ch LIRE ' %jour v%' THEN 

dbms_output .put_line ( ' lier test vrai ' ) ; 

END IF; 

--test 2 

IF ch LIRE ' _j our v%' THEN 

dbms_output .put_line ( ' 2ieme test vrai ' ) ; 

END IF; 

--test 3 

IF ch LIRE ' %jour v ' THEN 

dbms_output .put_line ( ' 3ieme test vrai'); 

END IF; 

IF ch LIRE '%jo% vin_i ' THEN 

dbms_output .put_line ( ' 4ieme test vrai ' ) ; 

END IF; 


END; 


Message DBMS Output 


lier test vrai 
3ieme test vrai 
4ieme test vrai 
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2. IF - THEN - ELSE 


Syntaxe 


IF condition_booléenne THEN 
/* instructions */ 

ELSE 

/* autres instructions */ 
END IF; 


Exemple 1 


DECLARE 

c CONSTANT CHAR : = ' m ' ; 

BEGIN 

IF (c IN ('a', 'b', 'c')) THEN 

dbms_output . put_line ( ' True ' ) ; 
ELSE 

dbms_output . put_line ( ' False ' ) ; 
END IF; 

IF (c IN ('m', 'n', 'o')) THEN 

dbms_output . put_line ( ' True ' ) ; 

ELSE 

dbms_output . put_line ( ' False ' ) ; 
END IF; 

IF (c is null) THEN 
dbms_output . put_line ( ' True ' ) ; 
ELSE 

dbms_output . put_line ( ' False ' ) ; 
END IF; 

END; 



Message 

DBMS Output 



False 



True 



False 



Exemple 2 

Déclarer et initialiser 2 chiffres, puis afficher le signe (positif / négatif) de leur produit, sans 
calculer le produit, (ignorer le cas de 0) 


DECLARE 

x CONSTANT NUMBER := -2; 
y CONSTANT NUMBER := 2; 

BEGIN 

IF (x > 0 AND y > 0) OR (x < 0 AND y < 0) THEN 
dbms_output.put_line ( ' Positif' ) ; 

ELSE 

dbms_output . put_line ( ' Négatif ' ) ; 

END IF; 

END; 



Message 

DBMS Output 



Négatif 
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3. IF imbriqué 


Définition 


On dit qu'un bloc if est imbriqué, s'il est lui-même définit à l'intérieur d'un autre bloc if, 

OU ELSE. 

Syntaxe : 

IF condition_booléenne THEN 
/* instructions */ 

IF condition_booléenne THEN 
/* instructions */ 

END IF; 

ELSE 

/* autres instructions */ 

END IF; 

Ou : 

IF condition_booléenne THEN 
/* instructions */ 

ELSE 

/* autres instructions */ 

IF condit±on_booléenne THEN 
/* instructions */ 

END IF; 

END IF; 


Exemple 

Refaire l’exemple précédent en utilisant 3 chiffres, (ignorer le cas de 0) 


DECLARE 

x CONSTANT NUMBER := 2; 
y CONSTANT NUMBER ;= -1; 
z CONSTANT NUMBER := 5; 

BEGIN 

IF (x > 0 AND y > 0) OR (x < 0 AND y < 0) THEN 
IF z > 0 THEN 

dbms_output . put_line ( ' Positif ' ) ; 

ELSE 

dbms_output . put_line ( ' Négatif ' ) ; 

END IF ; 

ELSE 

IF z > 0 THEN 

dbms_output . put_line ( ' Négatif ' ) ; 

ELSE 

dbms_output . put_line ( ' Positif ' ) ; 

END IF; 

END IF; 

END; 


Message 

Négatif 


DBMS Output 
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Définition : elsif 


Le bloc elsif a le même effet qu'un bloc if imbriqué dans un bloc else. Mais il surtout 
est plus pratique quand on veut faire des tests sur des valeurs multiples. 


Syntaxe : 


IF (booléen_l ) THEN 
ins truc tion_l ; 

ELSIF (booléen _2) THEN 
ins truc tion_2 ; 

ELSIF (booléen _3) THEN 
ins truc tion_3 ; 

ELSE 

/* 

sera exécutée si booléen_l, booléen_2 et booléen_3 ne sont pas TRUE 

*/ 

ins truc tion_4 ; 

END IF; 


Exemple 


DECLARE 

x CONSTANT VARCHAR2(1) ;= 'B'; 

BEGIN 

IF x = 'A' THEN 

dbms_output ,put_line ( 'Excellent ! ' ) ; 

ELSIF x = 'B' THEN 

dbms_output . put_line ( ' Très bien ' ) ; 

ELSIF x = 'C THEN 

dbms_output . put_line ( ' Bien ' ) ; 

ELSIF x = 'D' THEN 

dbms_output . put_line ( ' Moyen ' ) ; 

ELSIF x = 'E' THEN 

dbms_output . put_line ( ' Passable ' ) ; 

ELSE 

dbms_output .put_line ( ' Il vaut mieux redoubler !!'); 
END IF; 

END; 


Message 
Très bien 


DBMS Output 
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4. CASE 


Définition 


L’opérateur case sert à faire un choix entre plusieurs valeurs possibles d'une variable 
(comme l’exemple précédent). 

Même si on peut faire la même chose avec l'opérateur if, le case est une manière 
plus facile et plus élégante. 

1 ière Syntaxe : 

CASE nom_variable 

WHEN ’valeurl' THEN instruction_l ; 

WHEN 'valeur2' THEN instruction_2 ; 

WHEN 'valeur3' THEN instruction_3 ; 

ELSE ins truc ti on_n ; 

END CASE; 

2 ième Syntaxe : 

CASE 

WHEN nom_variable = 'valeurl' THEN ins truc ti on_l ; 

WHEN nom_variable = 'valeur2' THEN ins truc ti on_2 ; 

WHEN nom_variable = 'valeur3' THEN ins truc ti on_3 ; 

ELSE ins truc ti on_n ; 

END CASE; 


Exemple 1 

Refaire l’exemple précédent en utilisant l’opérateur case l ière Syntaxe 


DECLARE 

x CONSTANT VARCHAR2(1) := 'A' ; 

BEGIN 
CASE x 

WHEN 'A' THEN 

dbms_output .put_line ( 'Excellent ! ' ) ; 

WHEN 'B' THEN 

dbms_output . put_line ( ' Très bien ' ) ; 

WHEN 'C THEN 

dbms_output . put_line ( ' Bien ' ) ; 

WHEN 'D' THEN 

dbms_output . put_line ( ' Moyen ' ) ; 

WHEN ’E' THEN 

dbms_output .put_line ( ' Passable ' ) ; 

ELSE 

dbms_output .put_line ( ' Il vaut mieux redoubler !!'); 

END CASE; 

END; 


Message 
Excellent ! 


DBMS Output 


_ 


Exemple 2 

Refaire l’exemple précédent en utilisant l’opérateur case 2 ième Syntaxe 


DECLARE 

x CONSTANT VARCHAR2(1) := 'A' ; 
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BEGIN 

CASE 


THEN 

Jdbms_ou tpu t . put_line ( 'Excellent ! ' ) ; 

WHEN THEN 

dbms_output . put_line ( ' Très bien ' ) ; 

WHEN <x~ = 7 C^> THEN 

dbms_output . put_line ( ' Bien ' ) ; 

WHEN <jT = THEN 

dbms_output . put_line ( ' Moyen ' ) ; 

WHEN (x”"= r E > ) THEN 


ELSE 

END CASE; 
END; 


dbms_output .put_line ( ' Passable ' ) ; 

dbms output.put line ('Il vaut mieux redoubler !!'); 


A 


»\ IMPORTANT 


Un bloc appartenant à un opérateur if else elsif ou case peut contenir 
plusieurs instructions, y compris des blocs if else ... 


Exemple 


DECLARE 

x CONSTANT VARCHAR2(1) := 'An- 
note CONSTANT NUMBER (3,1) := 19.5; 

BEGIN 

CASE 

WHEN x = 'A' THEN 

IF note >= 19.5 THEN 

dbms_output ,put_line ( 'Excellent ! ' ) ; 
dbms_output .put_line ( 'Excellent ! ' ) ; 
dbms_output .put_line ( 'Excellent ! ' ) ; 

ELSE 

dbms_output ,put_line ( 'Excellent ! ' ) ; 

END IF; 

WHEN x = 'B' THEN 

dbms_output . put_line ( ' Très bien ' ) ; 

WHEN x = ’C THEN 

dbms_output . put_line ( ' Bien ' ) ; 

WHEN x = ’D' THEN 

dbms_output .put_line ( 'Moyen ' ) ; 

WHEN x = ’E' THEN 

dbms_output .put_line ( ' Passable ' ) ; 

ELSE 

dbms_output .put_line ( ' Il vaut mieux redoubler !!'); 

END CASE; 

END; 


Message DBMS Output 


Excellent ! 
Excellent ! 
Excellent ! 
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